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IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

PURPOSE: 

COMPUTER 

CONFIGURATION: 

SUBROUTINES 

REQUIRED: 

STORAGE: 

TIMING: 

CALLING 

SEQUENCE: 

USE: 

METHOD: 


PROGRAM DESCRIPTION 


Catalog Number 301016C 


SEL 810A/B Divide-Fixed/Double Precision Subroutine 
Systems Engineering Laboratories 
July 23, 1969 

To compute a double-precision quotient from a double 
precision dividend and divisor. 


Basic SEL 810A or 810B 


None 

120 octal locations plus literals and intermap reference 
lrCTTyeles plus normalizing time of 9 cycles per bit. 


X 

X+l 


LAA DVND 
LBA DVND+1 
CALL DDIV 
DAC DVSR 


MSB DIVIDEND 

LSB DIVIDEND 

Address of most signi¬ 
ficant word of divisor. 


After the execution of the program, the return is made 
to X+2 with the double precision quotient in the A- and 
B-Accumulators. 


The divisor is normalized, and a shift instruction is 
constructed to scale the dividend to the same place. 

If the dividend is greater than the divisor, the over¬ 
flow latch is set upon exiting and the answer should 
be considered invalid. If both the dividend and divisor 
are zero, the quotient is set to zero. 
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METHOD: (Cont'd) 


The double precision quotient is produced from the approximation: 

A + B _ A + B (A + B) D 
C+D“ C " 7 ^ 


NOTE '' 

Version C incorporates a change to correct an 
error which occurs when the divisor is negative. 
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PAGE 0001 










1 PAGE 0002 
0038 00033 00000032 

0039 00034 11100100 


0041 00036 03100112 
0042 00037 04100113 
0043 00040 01100111 
0044 00041 06077743 
0045 00042 15000017 

0047 00044 11100104 
0048 00045 06000017 
0049 00046 02100114 
0050 00047 04100056 
0051 00050 00000616 


0053 00052 03100055 


0055 

QOS.0 

0057 

00#8 


double 
DDVl SNkJ 
BRU 

_ FRA 

. ST A 
STB 
LAA 

sma 

CM A 

‘LRU 

BRU 
SMA, 
LB A 
AB2 STB 


0OO54 02100107 
oossa. 00000017 
00056 00000033 


L8A 
FLA 
iBl MSP 
FRA 


DOAO 00060 10100112 
0661 00061 03100116 
0062. 00062 00000006 
0063 00063 00000110 
00*4.: Q0Q64 03.iaO.lLL 
©065 00065 01100113 
0066 90066 00000110 
0067 00067 00000002 
0066 00070 00000005 
0069 00071 07100116 

J1020_00072. 0 5 1 00117 

0071 00073 10100112 
0072 00074 02000000 
0073 00075 00061612 
0074 00076 05100116 


PRECISION FIX POINT DIVIDE ! CAT, 301016C 

NORMAL I ZED ! 

NORM N0, SHIFT NEXT BIT 

1 —> ^ YES, SCALE jT_ DMWN T0 AVBlD 0VERFL0W 

DVSR 4 \J®A SAVE NORMALIZED D I V I S0R 

DVSR.l 5 i 

NMCT ,3 I 

s-29 ' C0NSTRUCT S^IfT COUNTER TS 

*15 scale DIVIDEND 

.N0P. ! 

N0P .- x I 

*15 ^ | 

FL15 Fjn‘4*. I 

AB1 ! 

6 

F LAT CONSTRUCT FuA INSTRUCTION F<)R DIVIDE! 

& ♦ 3 j 

DVND MSB DIVIDEND 

DVMDU f LSB DI VIDENCI 

BS ■ SCALE IT EQUAL TD DI V J SDR 

• p j- / &■ ] 

1 .....|_.. 

CA-2-Bi/<Ci>D>s(A4-B5/C'={A’>B)D/CBa2 
DVSR +. \ *(.u* (A*B)/C ! 

OUST ! 


CONSTRUCT FuA INSTRUCTION F^R DIVIDEND 

MSB DIVIDEND 
LSB DIVIDEND 

SCALE IT EQUAL T0 01VJ SDR 


DVSR>1 

1 


SCALE DiSWN REMAINDER 
SAVE JiEMAINOER_ 

D ! 


DVSR 
■ 0 

1« 

QUflT 


ADD 2 TERMS 


*C LMG 
»C LMG 


.4 
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1 PAGE 0003 DOUBLE 

0075 00077 II 3 OOOOO ttRU 

0076 00100 00000117 N0RM Fl_A 

0Q77 00101 14100111 

0078 00102 11100033 BRU 

0079 00103 11100035 BRU 

0080 00104 02000033 NOP LBA 

0081 00105 11100047 BRU 

0082 00106 00000002 D VNu BSb 

0083. flollo QQOOOQOO TfcSl HLT 

0084 00111 00000000 NMCT HLT 

0085 00112 00000002 DVSW BSS> 

0086 00114 00001717 FLIP H* 

0087 00115 00000017 Fi_Al FLA 

0088 00116 00000000 QU0T HLt 

0089 .00117 OOQQOOQO RMPH HLJ 

0090 00120 70400000’ ENU 

ERRORS 0000 00000 


o CD 


PRECISION FIX POINT DIVIDE CAT, 
DUIV EXIT 

1 

NMCT 
DDV1 
DDVl *2 

s '33 N0P 0P-C0DE 

AB2 
2 


2 

15 







o o. : 

V ■ ' 

301016C 


6 




